plotly

Tidying

rest_inspec =
  rest_inspec %>% 
  janitor::clean_names() %>%
  drop_na()

Scatterplot of latitude vs. longitude, colored by grade

rest_inspec %>%
  mutate(
    label = str_c("Borough: ", boro, "\nScore: ", score)
  ) %>% 
  plot_ly(
    x = ~latitude, y = ~longitude, color = ~grade, text = ~label,
    type = "scatter", mode = "markers", alpha = 0.5
  )

Box plot; restaurants in Manhattan with pending grades and their scores

rest_inspec %>%
  filter(
    boro == "Manhattan",
    cuisine_description == "Café/Coffee/Tea",
    grade == "P"
  ) %>%
  mutate(
    dba = fct_reorder(dba, score)
  ) %>% 
  plot_ly(
    y = ~score, color = ~dba,
    type = "box",
    colors = "viridis"
  )

Bar plot

rest_inspec %>%
  filter(
    boro == "Manhattan",
    cuisine_description == "Café/Coffee/Tea",
    grade == "A"
  ) %>% 
  count(dba) %>% 
  mutate(
    dba = fct_reorder(dba, n)
  ) %>% 
  plot_ly(
    x = ~dba, y = ~n, color = ~dba,
    type = "bar",
    colors = "viridis"
  )